home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / SANENG.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  73 lines
  1. 10 REM SAVE"0:SANITATION 64",8
  2. 100 REM SANITATION ENGINEER
  3. 110 REM FOR THE COMMODORE 64
  4. 120 REM BY FRED SIMON  8/85
  5. 130 CK=0: FOR I=51740 TO 52223: READ D
  6. 140 POKE I,D: CK=CK+D: NEXT
  7. 150 IF CK=63591 THEN SYS51740: END
  8. 160 PRINT "ERROR IN DATA STATEMENTS": STOP
  9. 170 :
  10. 180 DATA  120, 169,  55, 133,   1, 169, 160, 133
  11. 190 DATA    3, 160,   0, 132,   2, 177,   2, 145
  12. 200 DATA    2, 136, 208, 249, 230,   3, 165,   3
  13. 210 DATA  201, 192, 208, 241, 169,  54, 133,   1
  14. 220 DATA   88, 169,   5, 141, 143, 183, 169,  33
  15. 230 DATA  141, 125, 163, 162,   2, 189,  83, 202
  16. 240 DATA  157,  38, 181, 202,  16, 247,  96,  76
  17. 250 DATA   86, 202, 169,   0, 141, 239, 203, 169
  18. 260 DATA   15, 133, 250, 169, 224, 133, 249, 165
  19. 270 DATA   52, 141, 240, 203,  56, 229,  50, 201
  20. 280 DATA   19, 144,  22, 233,   3, 133, 250, 165
  21. 290 DATA   50, 105,   0, 133, 249, 165,  56, 229
  22. 300 DATA   52, 105,   1, 197, 250, 176,   2, 133
  23. 310 DATA  250, 165,  56, 141, 242, 203, 165,  55
  24. 320 DATA  141, 241, 203, 133,  51,  24, 240,   1
  25. 330 DATA   56, 173, 242, 203, 133,  52, 233,   0
  26. 340 DATA  133, 251, 105,   0, 133, 252, 165,  50
  27. 350 DATA  105,   1, 133, 254, 165,  45, 233,   6
  28. 360 DATA  133,  95, 165,  46, 233,   0, 133,  96
  29. 370 DATA  165,  47, 133, 253, 165, 251, 205,    
  30. 45056  |DATA  203, 144,  51, 229, 250, 133, 248, 165
  31. 390 DATA   52, 229, 251, 229, 248,  73, 255, 105
  32. 400 DATA    2, 197, 248, 144,   2, 165, 248, 205
  33. 410 DATA  240, 203, 176,   5, 173, 240, 203, 233
  34. 420 DATA    0, 133, 251,  32, 138, 203, 166,  48
  35. 430 DATA   32, 243, 202, 176,   9,  32,  39, 203
  36. 440 DATA  165, 251, 133, 252, 144, 182,  96,  24
  37. 450 DATA  165,  95, 105,   7, 133,  95, 144,   2
  38. 460 DATA  230,  96,  69,  47, 208,   4, 228,  96
  39. 470 DATA  240,  31, 160,   0, 177,  95, 200,  81
  40. 480 DATA   95,  16, 228, 177,  95,  16, 224, 160
  41. 256 DATA    4, 177,  95, 197, 251, 144, 217, 197
  42. 500 DATA  252, 176, 212,  32, 170, 203, 144, 208
  43. 510 DATA   96,  24,  96,  32,  83, 203, 176, 249
  44. 520 DATA  160,   2, 177,  95, 197, 251, 144,  10
  45. 530 DATA  197, 252, 176,   6,  32, 170, 203, 144
  46. 540 DATA    2,  96,  24, 169,   3, 101,  95, 133
  47. 550 DATA   95, 144,   2, 230,  96, 197, 253, 208
  48. 560 DATA  223, 228,  96, 208, 219, 240, 212,  24
  49. 570 DATA  165, 253, 133,  95, 134,  96,  69,  49
  50. 580 DATA  208,   4, 228,  50, 240,  39, 160,   2
  51. 590 DATA  177,  95, 101,  95, 133, 253, 200, 177
  52. 600 DATA      
  53. 12576 01,  96, 170, 160,   0, 177,  95
  54. 610 DATA  200,  81,  95,  16, 218, 160,   4, 177
  55. 620 DATA   95,  10, 105,   5, 101,  95, 133,  95
  56. 630 DATA  144,   3, 230,  96,  24,  96, 165, 248
  57. 640 DATA  133,  79, 165, 249, 133,  89, 160,   0
  58. 650 DATA  132,  78, 132,  88, 166, 250, 232, 177
  59. 660 DATA   78, 145,  88, 200, 208, 249, 230,  89
  60. 670 DATA  230,  79, 202, 208, 242,  96,  72, 120
  61. 680 DATA  169,  53, 133,   1, 104, 197, 248, 144
  62. 690 DATA    5, 229, 248,  24, 101, 249, 133,  79
  63. 700 DATA  136, 177,  95, 133,  78, 136,  56, 165
  64. 710 DATA   51, 2    
  65. 14624 5, 133,  51, 200, 145,  95
  66. 720 DATA  165,  52, 233,   0, 133,  52, 200, 145
  67. 730 DATA   95, 136, 136, 177,  95, 240,   9, 168
  68. 740 DATA  136, 177,  78, 145,  51, 152, 208, 248
  69. 750 DATA  169,  54, 133,   1,  88,  24, 165, 254
  70. 760 DATA  229,  52,  96,   0,   0,   0,   0,  67
  71. 770 DATA   49,  57,  56,  53,  32,  70,  46,  83
  72. 780 DATA   73,  77,  79,  78
  73.